home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
E-Education
/
(c)ed26.d64
/
snow
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
7KB
|
189 lines
10 POKE53280,0:POKE53281,0:POKE53272,21:P=0
20 PRINT"[147][159] [146]";
22 PRINT" [146]";
24 PRINT" [146]";
26 PRINT" [146]";
28 PRINT" SNOW [146]";
30 PRINT" [146]";
32 PRINT"[159] [146]";
34 PRINT" [146]":GOSUB392:GOSUB560
36 PRINT"[154] PRESS SPACE BAR [146] TO CONTINUE
38 [161]R$:[139]R$[179][177][199](32)[167]38
50 [137]1000
300 [141]530:[141]394:[153]"DEF TRY AGAIN!":[141]560:[141]391:[142]
350 [153]" CORRECT! WAIT":[141]500
355 [141]392:[153]"LOAD":[141]391:[142]
370 [153]" READ THIS CAREFULLY":[141]560:[141]560:[141]394:[142]
390 [129]T[178]1[164]600:[130]:[142]
391 [129]T[178]1[164]1000:[130]:[142]
392 [129]T[178]1[164]2000:[130]:[142]
393 [129]T[178]1[164]3000:[130]:[142]
394 [129]T[178]1[164]4000:[130]:[142]
395 [129]T[178]1[164]5000:[130]:[142]
500 [143] <YES>
505 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
510 [151]54296,15:[151]54277,42:[151]54278,250
515 [151]54276,23:[151]54273,23:[151]54272,191
520 [129]T[178]1[164]250:[130]:[151]54276,32:[129]T[178]1[164]300:[130]
525 [151]54296,0:[142]
530 [143] <NO>
535 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
540 [151]54296,15:[151]54277,18:[151]54278,242
545 [151]54276,33:[151]54273,4:[151]54272,48
550 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
555 [151]54296,0:[142]
560 [143] <BLIP>
565 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
570 [151]54296,8:[151]54277,42:[151]54278,250
575 [151]54276,23:[151]54273,23:[151]54272,191
580 [129]T[178]1[164]40:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
585 [151]54296,0:[142]
1000 [153]"PRINTLOAD I WANT YOU TO READ A STORY ABOUT
1010 PRINT" CHILDREN PLAYING IN THE SNOW.
1020 [153]" AFTER YOU HAVE READ THE STORY, THERE
1030 PRINT" WILL BE SOME QUESTIONS FOR YOU TO ANSWER.
1040 [153]"CONT PRESS SPACE BAR WHEN YOU ARE READY.":[141]560
1050 [161]R$:[139]R$[179][177][199](32)[167]1050
1055 [141] 1200
1060 [137]2000
1080 [141] 1200
1085 [137]2000
1200 [153]"LOAD THE STORY WAIT"
1210 [153]"OPEN IT SNOWED ALL DAY ON MONDAY.
1215 PRINT" ON TUESDAY, BRAD AND SARAH PLAYED IN
1220 [153]" THE WHITE SNOW. THEY JUMPED AND FELL IN THE DEEP SNOW.
1225 PRINT" BRAD LOST A MITTEN AND SOME MONEY.
1230 [153]" SARAH LOST HER RING IN THE DEEP SNOW.
1235 PRINT" "CHR$(34)"I WANT MY RING!"CHR$(34)" SAID SARAH. "CHR$(34)"PLEASE
1240 [153]" HELP ME FIND IT!"[199](34)
1245 [153]" BRAD SAID, "[199](34)"NO, SARAH. THE SNOW IS TOO DEEP."[199](34)
1247 [141]393:[153]"CONT PRESS SPACE BAR TO CONTINUE":[141]560
1248 [161]R$:[139]R$[179][177][199](32)[167]1248
1250 [153]"LOADOPEN ON WEDNESDAY,THE SUN WAS HIGH IN THE
1253 PRINT" SKY AND THERE WAS LESS SNOW.
1255 [153]" IT WAS HOPELESS BECAUSE THE SNOW WAS STILL TOO DEEP.
1260 PRINT" ON THURSDAY, THERE WAS JUST A LITTLE SNOW.
1265 [153]" ON FRIDAY, THE SNOW WAS GONE AND IN THE MUD WAS A WET MITTEN.
1270 PRINT" BY THE FENCE WAS SARAH'S SHINY LITTLE RING.
1275 [153]" BRAD'S MONEY WAS THERE, TOO!":[141]393
1277 [153]"CONT PRESS SPACE BAR TO CONTINUE":[141]560
1278 [161]R$:[139]R$[179][177][199](32)[167]1278
1280 [153]"LOAD YOU NOW HAVE A CHOICE:
1285 PRINT" PRESS R [146] TO REPEAT THE INSTRUCTIONS.
1290 [153]" PRESS B WAIT FOR THE QUESTIONS
1295 GETR$:IFR$<>"R"ANDR$<>"B"THEN1295
1296 IFR$="R"THEN RESTORE:GOTO1200
1297 RESTORE:PRINT"[147]":GOSUB392
1298 RETURN
2000 PRINT"[159][147] WHEN DID THE SNOW BEGIN TO FALL? ":GOSUB560
2010 PRINT"[153] (A) ... MONDAY
2020 [153]" (B) ... WEDNESDAY
2030 PRINT" (C) ... FRIDAY
2040 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2050 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2050
2060 IFR$="B"THENPRINT"[150] READ CAREFULLY":GOSUB300:P=P+1:GOTO2000
2070 IFR$="C"THENPRINT"[150] WHOOPS! TRY AGAIN.":GOSUB300:P=P+1:GOTO2000
2080 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2000
2090 GOSUB350
2100 PRINT"[159][147] HOW DID BRAD LOSE HIS MONEY?[153]":GOSUB560
2110 PRINT" (A) ... SARAH HID IT IN THE SNOW.
2120 [153]" (B) ... SOMEONE TOOK IT OUT OF HIS MITTEN.
2130 PRINT" (C) ... WHEN BRAD FELL, THE MONEY FELL FROM HIS POCKET.
2140 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2150 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2150
2160 IFR$="A"THENPRINT"[150] SARAH WOULD NOT DO THAT!":GOSUB300:P=P+1:GOTO2100
2170 IFR$="B"THENPRINT"[150] WHO WOULD DO THAT? ":GOSUB300:P=P+1:GOTO2100
2180 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2100
2190 GOSUB350
2200 PRINT"[159][147] WHY DIDN'T SARAH FIND HER RING?[153]":GOSUB560
2210 PRINT" (A) ... THE TREES HID IT.
2220 [153]" (B) ... THE SNOW WAS TOO DEEP.
2230 PRINT" (C) ... SARAH HAD LEFT IT AT HOME.
2240 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2250 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2250
2260 IFR$="A"THENPRINT"[150] WHAT TREES? ":GOSUB300:P=P+1:GOTO2200
2270 IFR$="C"THENPRINT"[150] SHE HAD BEEN WEARING IT.":GOSUB300:P=P+1:GOTO2200
2280 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2200
2290 GOSUB350
2300 PRINT"[159][147] WHERE WAS THE RING FOUND? [153]":GOSUB560
2310 PRINT" (A) ... BY THE FENCE
2320 [153]" (B) ... UNDER THE TREE
2330 PRINT" (C) ... IN A FLOWER POT
2340 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2350 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2350
2360 IFR$="B"THENPRINT"[150] CERTAINLY NOT!":GOSUB300:P=P+1:GOTO2300
2370 IFR$="C"THENPRINT"[150] WOW! TRY AGAIN! ":GOSUB300:P=P+1:GOTO2300
2380 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2300
2390 GOSUB350
2400 PRINT"[159][147] WHAT CAME FIRST IN THIS STORY? [153]":GOSUB560
2410 PRINT" (A) ... A MITTEN WAS FOUND
2420 [153]" (B) ... SARAH ASKED BRAD FOR HELP
2430 PRINT" (C) ... THEY PLAYED IN THE SNOW
2440 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2450 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2450
2460 IFR$="A"THENPRINT"[150] WHEN WAS IT LOST. ":GOSUB300:P=P+1:GOTO2400
2470 IFR$="B"THENPRINT"[150] REALLY? ":GOSUB300:P=P+1:GOTO2400
2480 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2400
2490 GOSUB350
2500 PRINT"[159][147] WHAT WAS THE CHILDREN'S HELPER?[153]":GOSUB560
2510 PRINT" (A) ... FUN IN THE MUD
2520 [153]" (B) ... THE MOON
2530 PRINT" (C) ... THE SUN
2540 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2550 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2550
2560 IFR$="A"THENPRINT"[150] DO YOU LIKE MUD PIES? ":GOSUB300:P=P+1:GOTO2500
2570 IFR$="B"THENPRINT"[150] DING! DING! TRY AGAIN!":GOSUB300:P=P+1:GOTO2500
2580 IFR$="D"THENGOSUB370:GOSUB1200:P=P+1:GOTO2500
2590 GOSUB350
2600 PRINT"[159][147] ON WHAT DAY DID BRAD AND SARAH PLAY"
2605 PRINT" IN THE SNOW?[153]":GOSUB560
2610 PRINT" (A) ... WEDNESDAY
2620 [153]" (B) ... TUESDAY
2630 PRINT" (C) ... MONDAY
2640 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2650 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2650
2660 IFR$="A"THENPRINT"[150] NOT SO! ":GOSUB300:P=P+1:GOTO2600
2670 IFR$="C"THENPRINT"[150] UGH! TRY AGAIN.":GOSUB300:P=P+1:GOTO2600
2680 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2600
2690 GOSUB350
2700 PRINT"[159][147] ON WHAT DAY DID THEY FIND THEIR THINGS?[153]":GOSUB560
2710 PRINT" (A) ... FRIDAY
2720 [153]" (B) ... SUNDAY
2730 PRINT" (C) ... SATURDAY
2740 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2750 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2750
2760 IFR$="B"THENPRINT"[150] WOW! THAT'S WILD! ":GOSUB300:P=P+1:GOTO2700
2770 IFR$="C"THENPRINT"[150] NOT LIKELY! ":GOSUB300:P=P+1:GOTO2700
2780 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2700
2790 GOSUB350
2800 PRINT"[159][147] WHAT IS THE BEST NAME FOR THIS STORY?[153]":GOSUB560
2810 PRINT" (A) ... FUN IN THE MUD
2820 [153]" (B) ... THE SUN AND THE SNOW
2830 PRINT" (C) ... THE LOST FENCE
2840 [153]" (D) ... PLEASE SHOW ME THE STORY AGAIN
2850 GETR$:IFR$<>"A"ANDR$<>"B"ANDR$<>"C"ANDR$<>"D"THEN2850
2860 IFR$="A"THENPRINT"[150] WAKE UP! ":GOSUB300:P=P+1:GOTO2800
2870 IFR$="C"THENPRINT"[150] YOU'RE BEING SILLY!":GOSUB300:P=P+1:GOTO2800
2880 IFR$="D"THENGOSUB370:GOSUB1200:GOTO2800
2890 GOSUB350
3000 PRINT"[147] SCORE BOARD [146]":GOSUB391
3005 IFP=0THENPRINT" EXCELLENT!"
3010 IFP=00THENGOSUB500:GOSUB500:GOSUB393:GOTO3045
3015 IFP=1THENPRINT"[153] YOU MADE JUST ONE BLOOPER.":GOSUB392
3020 IFP=1THENPRINT" GOOD WORK."
3025 IFP=1THEN GOSUB500:GOSUB393:GOTO3045
3030 PRINT"[150] YOU HAVE MADE"P"BLOOPERS.":GOSUB530:GOSUB530:GOSUB392
3035 PRINT"[150] YOU SHOULD REPEAT THIS STORY AND
3040 [153]" TRY TO GET A BETTER SCORE,":[141]393
3045 [153]"OPEN WAIT"
3050 [153]" YOU NOW HAVE A CHOICE:":[141]560
3055 [153]" PRESS R WAIT TO REPEAT THIS STORY
3060 PRINT" PRESS M [146] TO RETURN TO THE DISK MENU
3065 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"M"[167] 3065
3070 [139]R$[178]"R"[167] [140]:[137]1000
3075 [153]"LOAD RETURNING TO THE DISK MENU
3080 LOAD"MENU",8
3085 RUN
3090 END
4000 REM WHC 92 06 02